home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue68 / sync / Pong.dpr < prev    next >
Encoding:
Text File  |  2001-02-26  |  304 b   |  20 lines
  1. //TGpFileEvent demo - waiting part
  2.  
  3. program Pong;
  4. {$APPTYPE CONSOLE}
  5. uses
  6.   SysUtils,
  7.   Windows,
  8.   GpFileSync;
  9.  
  10. var
  11.   evt: TGpFileEvent;
  12.  
  13. begin
  14.   evt := TGpFileEvent.Create('demo.evt');
  15.   try
  16.     evt.WaitFor(INFINITE,true);
  17.     Writeln('...pong!');
  18.   finally FreeAndNil(evt) end;
  19. end.
  20.